/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue08 / riscos / alarm

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 20 3e 61 | 6c 61 72 6d 0d 00 14 05 |..... >a|larm....|
|00000010| 20 0d 00 1e 28 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a | ...(. *|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 00 28 28 f4 20 2a |********|*..((. *|
|00000040| 20 20 41 20 53 69 6d 70 | 6c 65 20 44 65 73 6b 74 |  A Simp|le Deskt|
|00000050| 6f 70 20 41 6c 61 72 6d | 20 43 6c 6f 63 6b 20 20 |op Alarm| Clock  |
|00000060| 2a 0d 00 32 28 f4 20 2a | 20 77 72 69 74 74 65 6e |*..2(. *| written|
|00000070| 20 62 79 20 20 41 64 72 | 69 61 6e 20 50 68 69 6c | by  Adr|ian Phil|
|00000080| 69 70 20 4c 6f 6f 6b 20 | 2a 0d 00 3c 28 f4 20 2a |ip Look |*..<(. *|
|00000090| 20 20 20 20 20 20 20 20 | 20 32 37 74 68 20 4d 61 |        | 27th Ma|
|000000a0| 72 63 68 20 31 39 39 30 | 20 20 20 20 20 20 20 20 |rch 1990|        |
|000000b0| 2a 0d 00 46 28 f4 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*..F(. *|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 00 50 05 20 0d 00 |********|*..P. ..|
|000000e0| 5a 0f f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 00 64 |Z..initi|alise..d|
|000000f0| 0e 66 69 6e 69 73 68 65 | 64 3d a3 0d 00 6e 05 f5 |.finishe|d=...n..|
|00000100| 0d 00 78 25 c8 99 20 22 | 57 69 6d 70 5f 50 6f 6c |..x%.. "|Wimp_Pol|
|00000110| 6c 22 2c 30 2c 62 6c 6f | 63 6b 25 20 b8 20 72 65 |l",0,blo|ck% . re|
|00000120| 61 73 6f 6e 25 0d 00 82 | 10 c8 8e 20 72 65 61 73 |ason%...|... reas|
|00000130| 6f 6e 25 20 ca 0d 00 8c | 1a c9 20 30 20 20 20 20 |on% ....|.. 0    |
|00000140| 20 3a 20 f2 6d 61 69 6e | 70 72 6f 67 72 61 6d 0d | : .main|program.|
|00000150| 00 96 28 c9 20 31 37 2c | 31 38 20 3a 20 e7 20 62 |..(. 17,|18 : . b|
|00000160| 6c 6f 63 6b 25 21 31 36 | 3d 30 20 8c 20 66 69 6e |lock%!16|=0 . fin|
|00000170| 69 73 68 65 64 3d b9 0d | 00 a0 05 cb 0d 00 aa 0e |ished=..|........|
|00000180| fd 20 66 69 6e 69 73 68 | 65 64 0d 00 b4 17 f2 63 |. finish|ed.....c|
|00000190| 6c 6f 73 65 64 6f 77 6e | 28 74 61 73 6b 69 64 25 |losedown|(taskid%|
|000001a0| 29 0d 00 be 05 e0 0d 00 | c8 04 0d 00 d2 10 dd f2 |).......|........|
|000001b0| 69 6e 69 74 69 61 6c 69 | 73 65 0d 00 dc 1d de 20 |initiali|se..... |
|000001c0| 74 61 73 6b 25 20 34 20 | 3a 20 24 74 61 73 6b 25 |task% 4 |: $task%|
|000001d0| 3d 22 54 41 53 4b 22 0d | 00 e6 11 de 20 62 6c 6f |="TASK".|.... blo|
|000001e0| 63 6b 25 20 26 34 30 30 | 0d 00 f0 1d 74 61 73 6b |ck% &400|....task|
|000001f0| 69 64 25 3d a4 64 65 63 | 6c 61 72 65 28 22 41 6c |id%=.dec|lare("Al|
|00000200| 61 72 6d 22 29 0d 00 fa | 23 61 6c 61 72 6d 3d a3 |arm")...|#alarm=.|
|00000210| 20 3a 20 73 65 74 3d b9 | 20 3a 20 77 68 65 6e 24 | : set=.| : when$|
|00000220| 3d 22 31 32 3a 31 35 22 | 0d 01 04 05 e1 0d 01 0e |="12:15"|........|
|00000230| 04 0d 01 18 14 dd a4 64 | 65 63 6c 61 72 65 28 74 |.......d|eclare(t|
|00000240| 61 73 6b 24 29 0d 01 22 | 0d ea 20 74 61 73 6b 69 |ask$).."|.. taski|
|00000250| 64 25 0d 01 2c 34 c8 99 | 20 22 57 69 6d 70 5f 49 |d%..,4..| "Wimp_I|
|00000260| 6e 69 74 69 61 6c 69 73 | 65 22 2c 32 30 30 2c 21 |nitialis|e",200,!|
|00000270| 74 61 73 6b 25 2c 74 61 | 73 6b 24 20 b8 20 2c 74 |task%,ta|sk$ . ,t|
|00000280| 61 73 6b 69 64 25 0d 01 | 36 0c 3d 74 61 73 6b 69 |askid%..|6.=taski|
|00000290| 64 25 0d 01 40 04 0d 01 | 4a 18 dd f2 63 6c 6f 73 |d%..@...|J...clos|
|000002a0| 65 64 6f 77 6e 28 74 61 | 73 6b 69 64 25 29 0d 01 |edown(ta|skid%)..|
|000002b0| 54 26 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |T&.. "Wi|mp_Close|
|000002c0| 44 6f 77 6e 22 2c 74 61 | 73 6b 69 64 25 2c 21 74 |Down",ta|skid%,!t|
|000002d0| 61 73 6b 25 0d 01 5e 05 | e1 0d 01 68 04 0d 01 72 |ask%..^.|...h...r|
|000002e0| 11 dd f2 6d 61 69 6e 70 | 72 6f 67 72 61 6d 0d 01 |...mainp|rogram..|
|000002f0| 7c 13 20 f4 20 67 65 74 | 20 74 68 65 20 74 69 6d ||. . get| the tim|
|00000300| 65 0d 01 86 13 74 69 6d | 65 24 3d c1 91 24 2c 31 |e....tim|e$=..$,1|
|00000310| 37 2c 35 29 0d 01 90 43 | 20 f4 20 69 73 20 74 68 |7,5)...C| . is th|
|00000320| 65 20 61 6c 61 72 6d 20 | 73 65 74 20 61 6e 64 20 |e alarm |set and |
|00000330| 74 68 65 20 74 69 6d 65 | 20 63 6f 72 72 65 63 74 |the time| correct|
|00000340| 3f 20 49 66 20 73 6f 20 | 73 74 61 72 74 20 74 68 |? If so |start th|
|00000350| 65 20 61 6c 61 72 6d 0d | 01 9a 29 e7 20 74 69 6d |e alarm.|..). tim|
|00000360| 65 24 3d 77 68 65 6e 24 | 20 80 20 73 65 74 20 8c |e$=when$| . set .|
|00000370| 20 61 6c 61 72 6d 3d b9 | 20 3a 20 73 65 74 3d a3 | alarm=.| : set=.|
|00000380| 0d 01 a4 3c 20 f4 20 69 | 66 20 74 68 65 20 61 6c |...< . i|f the al|
|00000390| 61 72 6d 20 68 61 73 20 | 62 65 20 73 74 61 72 74 |arm has |be start|
|000003a0| 65 64 20 73 6f 75 6e 64 | 20 61 20 62 65 65 70 20 |ed sound| a beep |
|000003b0| 65 76 65 72 79 20 73 65 | 63 6f 6e 64 0d 01 ae 1f |every se|cond....|
|000003c0| e7 20 61 6c 61 72 6d 20 | 80 20 28 91 20 83 20 31 |. alarm |. (. . 1|
|000003d0| 30 30 29 3d 30 20 8c 20 | ef 20 37 0d 01 b8 38 20 |00)=0 . |. 7...8 |
|000003e0| f4 20 69 66 20 62 6f 74 | 68 20 3c 61 6c 74 3e 20 |. if bot|h <alt> |
|000003f0| 6b 65 79 73 20 61 72 65 | 20 70 72 65 73 73 65 64 |keys are| pressed|
|00000400| 20 74 75 72 6e 20 6f 66 | 66 20 74 68 65 20 61 6c | turn of|f the al|
|00000410| 61 72 6d 0d 01 c2 25 e7 | 20 61 6c 61 72 6d 20 80 |arm...%.| alarm .|
|00000420| 20 a6 28 2d 36 29 20 80 | 20 a6 28 2d 39 29 20 8c | .(-6) .| .(-9) .|
|00000430| 20 61 6c 61 72 6d 3d a3 | 0d 01 cc 05 e1 0d ff    | alarm=.|....... |
+--------+-------------------------+-------------------------+--------+--------+